home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
VI5.ARJ
/
VIDEMO.EXE
/
SAMPLE4.PRG
< prev
next >
Wrap
Text File
|
1992-01-21
|
932b
|
28 lines
************************************************************************
* SAMPLE3.PRG Peter M. Freese
* 1/20/92 Pinnacle Publishing, Inc.
*
* Source code demonstration of Group Box Styles
************************************************************************
#include "vi.ch"
#include "inkey.ch"
FUNCTION Sample4()
LOCAL oWin
// create a window
oWin := VWindowNew(12,20,27,60,0,WS_DOUBLEBORDER+WS_TITLE,;
WHITE,GREEN,"Group Box Styles")
VGroupBoxNew(oWin,2,4,5,18,GB_BORDER+GB_TITLETHRU+GB_TITLEMID,;
"BLACK")
VGroupBoxNew(oWin,2,22,5,36,GB_INDENT+GB_TITLETHRU+GB_TITLEMID,;
"INDENT")
VGroupBoxNew(oWin,8,4,11,18,GB_DROPSHADOW+GB_TITLETHRU+GB_TITLEMID,;
"DROPSHADOW")
VGroupBoxNew(oWin,8,22,11,36,GB_LIFTSHADOW+GB_TITLETHRU+GB_TITLEMID,;
"LIFTSHADOW")
// return window object to calling routine
RETURN oWin